Cocktail Hour/image.iso/COCKTAIL.DIR/objects_59_prep script.ls

Text File | 1997-03-05 | 11.1 KB | 322 lines

on exitFrame
  global OnceCheck, RecipeNum, Choice, CurrVideo, AfterFavorite
  if the visible of sprite 31 = 1 then
    set the cursor of sprite 32 to 1
  else
    if the visible of sprite 31 = 0 then
      set the cursor of sprite 32 to 0
    end if
  end if
  if OnceCheck = 0 then
    cursor(-1)
    set OnceCheck to 1
    repeat with i = 4 to 6
      set the cursor of sprite i to [34, 35]
      set the cursor of sprite (i + 10) to [34, 35]
    end repeat
    set the cursor of sprite 3 to [34, 35]
    set the cursor of sprite 17 to [34, 35]
    set the cursor of sprite 35 to [34, 35]
    if the visible of sprite 16 then
      set the visible of sprite 16 to 0
    end if
    repeat with i = 19 to 29
      if the visible of sprite i then
        set the visible of sprite i to 0
      end if
    end repeat
    repeat with i = 31 to 35
      if the visible of sprite i then
        set the visible of sprite i to 0
      end if
    end repeat
    if the visible of sprite i then
      set the visible of sprite 38 to 0
    end if
    if the visible of sprite i then
      set the visible of sprite 37 to 0
    end if
    set CurrVideo to line RecipeNum of field "videoLib"
    repeat with i = 3 to 8
      puppetSprite(i, 1)
    end repeat
    set x to the number of lines in the text of member ("recipe" & RecipeNum)
    set tarHow to line x - 3 of the text of member ("recipe" & RecipeNum)
    if the name of member value(RecipeNum) of castLib "small picts" = "noPict" then
      set the member of sprite 7 to member "mezze"
    else
      set the member of sprite 7 to member RecipeNum of castLib "small picts"
    end if
    puppetSprite(36, 1)
    puppetSprite(17, 1)
    set howVec to ["Long", "Short", "Shot", "Hot"]
    set howShown to getPos(howVec, tarHow)
    set the visible of sprite (25 + howShown) to 1
    cursor(0)
    set the visible of sprite 16 to 0
    forget(window "notes")
    windowRoutine()
    if (CurrVideo <> " ") and (CurrVideo <> EMPTY) then
      DoMovie(CurrVideo)
    else
      set the member of sprite 36 to member RecipeNum of castLib "slideNW"
      set the visible of sprite 36 to 1
      set the visible of sprite 17 to 0
    end if
    if (AfterFavorite = 0) and (CurrVideo <> " ") and (CurrVideo <> EMPTY) then
      set the movieRate of sprite 41 to 1
    else
      set AfterFavorite to 0
    end if
  end if
  if the timer > 60 then
    set the frameRate of member 200 of castLib "Videos" to -1
  end if
  go(the frame)
end

on mouseDown
  global checkPress, CurrVideo
  set checkPress to the clickOn
  set bDown to the clickOn
  if (bDown > 2) and (bDown < 7) then
    if (CurrVideo = " ") or (CurrVideo = EMPTY) then
      set the visible of sprite 36 to 0
      set the visible of sprite 17 to 1
    end if
    set the member of sprite bDown to member ("PrepBtn" & bDown - 2)
  else
    if bDown = 24 then
      set the member of sprite 24 to member "shopDelete" of castLib "objects"
    else
      if bDown = 25 then
        set the member of sprite 25 to member "shopClear" of castLib "objects"
      else
        if bDown > 41 then
          buttonPressedDown(bDown, "objects")
        end if
      end if
    end if
  end if
  updateStage()
  repeat while the mouseDown
  end repeat
  set the member of sprite bDown to member "origin"
end

on mouseUp
  global checkPress, CurrVideo, Navigate, Choice, gRecNumber, goOn, gAdd, gProgrmPathOnHD, MyFavorites, AfterFavorite, current, RecipeNum
  set the member of sprite 36 to member "big_pict"
  set the editable of member "CurrNotes" to 1
  set checkPress2 to the clickOn
  if checkPress = checkPress2 then
    set bUp to the clickOn
    if (bUp > 2) and (bUp < 7) then
      set the member of sprite bUp to member "Origin"
      if bUp = 3 then
        set listToGoTo to EMPTY
        set x to the number of lines in field "backField"
        set currFrame to the frame - 1
        if currFrame = 190 then
          set Navigate to "abc"
          set dest to "abc"
          set the text of field "total" to the text of field "abc"
        else
          if currFrame = 180 then
            set Navigate to "abc"
            set dest to "abc"
            set the text of field "total" to the text of field "abc"
          else
            if currFrame = 195 then
              set Navigate to "partyDrinks"
              set dest to "entertainment"
            else
              if currFrame = 175 then
                set Navigate to "abc"
                set dest to "abc"
                set the text of field "total" to the text of field "abc"
              else
                if currFrame = 130 then
                  set Navigate to "non-alco"
                  set dest to "non-alco"
                else
                  if currFrame = 125 then
                    set Navigate to "abc"
                    set dest to "abc"
                    set the text of field "total" to the text of field "abc"
                  else
                    set Navigate to "alco"
                    set alcoDest to line x - 1 of field "backField"
                    set alcoDest to value(alcoDest)
                  end if
                end if
              end if
            end if
          end if
        end if
        if dest <> EMPTY then
          put marker(0) into line x + 1 of field "backField"
          clearPuppets()
          if Navigate = "alco" then
            go(alcoDest)
          else
            go(marker(dest))
          end if
        end if
      else
        if bUp = 4 then
          DontMovie()
          repeat with i = 19 to 25
            set the visible of sprite i to 1
            case i of
              20, 21, 23, 24, 25:
                set the cursor of sprite i to [34, 35]
            end case
            set the cursor of sprite 13 to [34, 35]
          end repeat
          set the cursor of sprite 35 to [34, 35]
          repeat with i = 34 to 35
            set the visible of sprite i to 1
          end repeat
          repeat with i = 31 to 32
            set the visible of sprite i to 0
          end repeat
          puppetSprite(24, 1)
          puppetSprite(25, 1)
          if (CurrVideo <> " ") and (CurrVideo <> EMPTY) then
            set the visible of sprite 16 to 1
          end if
        else
          if bUp = 5 then
            DontMovie()
            repeat with i = 19 to 25
              set the visible of sprite i to 0
              case i of
                20, 21, 23, 24, 25:
                  set the cursor of sprite i to -1
              end case
            end repeat
            set the cursor of sprite 13 to -1
            repeat with i = 34 to 35
              set the visible of sprite i to 0
            end repeat
            repeat with i = 31 to 33
              set the visible of sprite i to 1
            end repeat
            puppetSprite(24, 0)
            puppetSprite(25, 0)
            set goOn to 1
            set gRecNumber to RecipeNum
            if (CurrVideo <> " ") and (CurrVideo <> EMPTY) then
              set the visible of sprite 16 to 1
            end if
          else
            if bUp = 6 then
              DontMovie()
              set gAdd to 1
              if the stageRight > 640 then
                set winRect to rect(318, 172, 716, 494)
              else
                set winRect to rect(238, 111, 634, 431)
              end if
              set the modal of window "favorite" to 1
              set the titleVisible of window "favorite" to 0
              set the windowType of window "favorite" to 3
              set the rect of window "favorite" to winRect
              set the fileName of window "favorite" to gProgrmPathOnHD & "favorite.dir"
              if the visible of sprite 16 then
                set the visible of sprite 16 to 0
              end if
              repeat with i = 19 to 29
                if the visible of sprite i then
                  set the visible of sprite i to 0
                end if
              end repeat
              repeat with i = 31 to 35
                if the visible of sprite i then
                  set the visible of sprite i to 0
                end if
              end repeat
              if the visible of sprite i then
                set the visible of sprite 38 to 0
              end if
              if the visible of sprite i then
                set the visible of sprite 37 to 0
              end if
              set AfterFavorite to 1
              set MyFavorites to 0
              set current to []
              add(current, RecipeNum)
              open(window "favorite")
            end if
          end if
        end if
      end if
    else
      if bUp = 17 then
        if the type of member 200 of castLib "videos" <> #digitalVideo then
          set the member of sprite 36 to member RecipeNum of castLib "slideNW"
          set the visible of sprite 36 to 1
          set the editable of member "CurrNotes" to 0
        end if
      else
        if bUp = 24 then
          set the member of sprite 24 to member "origin"
          repeat with i = 1 to the number of lines in field "shop2"
            if the foreColor of line i of field "shop2" = 35 then
              delete line i of field "shop2"
              delete line i of field "shop1"
            end if
          end repeat
          set the foreColor of field "shop1temp" to 204
          set the foreColor of field "shop2temp" to 204
          set the text of field "shop1temp" to line 1 to 10 of field "shop1"
          set the text of field "shop2temp" to line 1 to 10 of field "shop2"
        else
          if bUp = 25 then
            set the member of sprite 25 to member "origin"
            set the foreColor of field "shop1" to 204
            set the foreColor of field "shop2" to 204
            set the foreColor of field "shop1temp" to 204
            set the foreColor of field "shop2temp" to 204
            set the text of field "shop1" to EMPTY
            set the text of field "shop2" to EMPTY
            set the text of field "shop1temp" to EMPTY
            set the text of field "shop2temp" to EMPTY
          else
            if bUp > 41 then
              if bUp = 44 then
                set x to the number of lines in field "backField"
                set the text of field "backField" to line 1 to x - 1 of field "BackField"
              else
                if bUp = 48 then
                  if the visible of sprite 16 then
                    set the visible of sprite 16 to 0
                  end if
                  repeat with i = 19 to 29
                    if the visible of sprite i then
                      set the visible of sprite i to 0
                    end if
                  end repeat
                  repeat with i = 31 to 35
                    if the visible of sprite i then
                      set the visible of sprite i to 0
                    end if
                  end repeat
                  if the visible of sprite i then
                    set the visible of sprite 38 to 0
                  end if
                  if the visible of sprite i then
                    set the visible of sprite 37 to 0
                  end if
                end if
              end if
              buttonPressedUp(bUp, "objects")
            end if
          end if
        end if
      end if
    end if
  end if
end